home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
tpapi1.zip
/
NWDIR.PA1
< prev
next >
Wrap
Text File
|
1991-12-04
|
10KB
|
160 lines
{!R! FONT 15; FTMD 15; EXIT;}
{***************************************************************************}
{** Program : NWDIR **}
{***************************************************************************}
{** Version : 1.0b ** Started : 11/11/91 ** ENDed : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : DIRECTORY **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 Tony Covelli, **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
UNIT NWDIR;
INTERFACE
USES
netware, nwvar;
TYPE
pDirectoryOBJ = ^DirectoryOBJ;
DirectoryOBJ = object (NetwareOBJ)
constructor Init;
FUNCTION AddTrusteeToDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID; TrusteeRightsMask : BYTE) : WORD;
FUNCTION AllocPermanentDirectoryHandle (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
DriveLetter : CHAR; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION AllocTemporaryDirectoryHandle (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
DriveLetter : CHAR; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION ClearVolRestrictions (ConnectionID : WORD; VolumeNumber : BYTE; ObjectID : OT_BinderyType) : WORD;
FUNCTION CreateDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
MaximumRightsMask : BYTE) : WORD;
FUNCTION DeallocateDirectoryHandle (DirectoryHandle : BYTE) : WORD;
FUNCTION DeleteDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType) : WORD;
FUNCTION DeleteTrustee (ConnectionID : WORD; DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID) : WORD;
FUNCTION DeleteTrusteeFromDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
ObjectID : OT_BinderyID) : WORD;
FUNCTION GetCurrentDirectory (DriveNumber : BYTE; VAR DirectoryPath : PathNameType) : WORD;
FUNCTION GetDirectoryHandle (DriveNumber : BYTE) : BYTE;
FUNCTION GetDirectoryPath (DirectoryHandle : BYTE; VAR DirectoryPath : PathNameType) : WORD;
FUNCTION GetDirEntry (ConnectionID : WORD; DirectoryHandle : BYTE;
VAR DirectoryEntry : NWDir_Entry) : WORD;
FUNCTION GetDirInfo (ConnectionID : WORD; DirectoryHandle : BYTE;
VAR DirectoryInfo : NWDir_Info) : WORD;
FUNCTION GetDriveInformation (DriveNumber : BYTE; VAR ConnectionID : WORD; VAR DirectoryHandle : BYTE) : BYTE;
FUNCTION GetEffectiveDirectoryRights (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
VAR EffectiveRightsMask : BYTE) : WORD;
FUNCTION GetObjectDiskRestrictions (ConnectionID : WORD; VolumeNumber : BYTE; ObjectID : OT_BinderyID;
VAR VolumeRestriction, BlocksInUse : LONGINT) : WORD;
PROCEDURE GetSearchDriveVector (VAR VectorBuffer : Byte17ArrayType);
FUNCTION GetVolumeInformation (ConnectionID : WORD; VolumeNumber : BYTE; StructureSize : WORD;
VAR VolumeStatistics : Volume_Stats) : WORD;
FUNCTION GetVolumeInfoWithHandle (DirectoryHandle : BYTE; VAR VolumeName : VolumeNameType;
VAR TotalBlocks, SectorsPerBlock, AvailableBlocks,
TotalDirectorySlots, AvailableDirectorySlots,
VolumeIsRemovable : WORD) : WORD;
FUNCTION GetVolumeInfoWithNumber (VolumeNumber : BYTE; VAR VolumeName : VolumeNameType;
VAR TotalBlocks, SectorsPerBlock, AvailableBlocks,
TotalDirectorySlots, AvailableDirectorySlots,
VolumeIsRemovable : WORD) : WORD;
FUNCTION GetVolumeName (VolumeNumber : BYTE; VAR VolumeName : VolumeNameType) : WORD;
FUNCTION GetVolumeNumber (VolumeName : VolumeNameType; VAR VolumeNumber : BYTE) : WORD;
FUNCTION GetVolUsage (ConnectionID : WORD; VolumeNumber : BYTE;
VAR VolumeUsage : NWVol_Usage) : WORD;
FUNCTION IsSearchDrive (DriveLetter : CHAR) : WORD;
FUNCTION MapV2TrusteeRightsToV3 (TrusteeRights : BYTE) : LONGINT;
FUNCTION MapV3TrusteeRightsToV2 (TrusteeRights : LONGINT) : BYTE;
FUNCTION ModifyMaximumRightsMask (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
RevokeRightsMask, GrantRightsMask : BYTE) : WORD;
FUNCTION RenameDirectory (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
NewDirectoryName : DirectoryNameType) : WORD;
FUNCTION RestoreDirectoryHandle (SaveBuffer : Byte14ArrayType; VAR NewDirectoryHandle,
EffectiveRightsMask : BYTE) : WORD;
FUNCTION SaveDirectoryHandle (DirectoryHandle : BYTE; VAR SaveBuffer : Byte14ArrayType) : WORD;
FUNCTION ScanBinderyObjectTrusteePaths (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
VAR SequenceNumber, TrusteeAccessMask : WORD;
VAR TrusteePathName : PathNameType) : WORD;
FUNCTION ScanDirectoryForTrustees (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
VAR SequenceNumber : WORD; VAR DirectoryName : DirectoryNameType;
VAR CreationDateAndTime : Byte4ArrayType; VAR OwnerID : OT_BinderyID;
VAR TrusteeIDs : Longint5ArrayType; VAR TrusteeRights : Byte5ArrayType) : WORD;
FUNCTION ScanDirectoryInformation (DirectoryHandle : BYTE; SearchDirectoryPath : PathNameType;
VAR SequenceNumber : WORD; VAR DirectoryName : DirectoryNameType;
VAR CreationDateAndTime : Byte4ArrayType; VAR OwnerID : OT_BinderyID;
VAR MaximumRightsMask : BYTE) : WORD;
FUNCTION SetDirectoryHandle (SourceDirectoryHandle : BYTE; SourceDirectoryPath : PathNameType;
TargetDirectoryHandle : BYTE) : WORD;
FUNCTION SetDirectoryInformation (DirectoryHandle : BYTE; DirectoryPath : PathNameType;
NewCreationDateAndTime : Byte4ArrayType;
NewOwnerObjectID : OT_BinderyID; NewRightsMask : BYTE) : WORD;
PROCEDURE SetSearchDriveVector (VAR VectorBuffer : Byte17ArrayType);
destructor Done; virtual;
END;